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6 
16-Sep-1984 00:15: VAX-11 FORTRAN V3.4-56 P 1 
g-ep-1964 90:33:63 DTSKSUNSRASTER: FEAF SecJSYSPuRFL.FoRTe” | 
Subroutine SYS_POWERFAIL (Lun) 


| 
gf 
: Version: *v04-000' 
5 2 lgeeeeaesersr 3s Thigpen rer oman ee et tke Re eg geet 
— © 
C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
8 C* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
S202 $s ALL RIGHTS RESERVED. * 
® 
0011 C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
Bog C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
1 C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0014 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0015 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
Sore > TRANSFERRED. * 
e 
oo18 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
001 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
4 > CORPORATION, * 
ad 
00 ¢ C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS » 
i Z ES SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® 
® 
0036  cohaeieudneeeieitenuntiedinnimaaianannalahaalaientinmabeaniiuscmmibidacitniedalaanion 
0028 Byte Lun 
0029 
0030 C 
0031 C Call the ‘header’ routine to output the first two Lines of the 
pO3s : header portion of the report. 
0034 Call HEADER (Lun) 
0035 
0036 C 
0037 C Call the ‘logger’ routine with the appropriate needing to output 
0038 C for the header portion of the report. (System powerfail entries 
0039 C consist of header only, as they are just an indicator that a power 
Bee : fail occurred). 
Boeg Call LOGGER (Lun, "SYSTEM POWER-FAIL") 
0044 Return 
0045 End ! Module 
| 
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| SYS.POWERF AIL 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 35 PIC CON REL LCL 
1 SPDATA 1 PIC CON REL LCL 
2 SLOCAL 2 PIC CON REL LCL 
Total Space Allocated 81 


ENTRY POINTS 
Address Type Name 
0-00000000 SYS_POWERFAIL 


VARIABLES 
Address Type Name 
AP-000000048 L*1 LUN 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
HEADER 


Type Name 
LOGGER 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:SYSPWRFL/OBJ=OBJ$:SYSPWRFL MSRC$:SYSPWRFL 
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Be 90:28: 


mo EXE RD 
SHR MOEXE RD 
NOSHR NOEXE RD 


ODE .MA 
/°77 /NOG_FLOATING 714 WOPTIMIZE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE 


COMPILATION STATISTICS 


Run Time: 9.2% seconds 
Elapsed Time: 36 seconds 
Page Faults: 101 

Dynamic Memory: 163 pages 


35 VAKo11 FORTRAN V3, 4°56 Page 2 
VMSMASTER: CERF ..SRCJSYSPWRFL.FOR; 1 


NOWRT LONG 
NOWRT LONG 
WRT LONG 


/NOMACHINE_CODE /CONTINUATIONS=19 
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